home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SHELLS / SZ2 / CLUSTER.EVT < prev    next >
Text File  |  1992-08-31  |  446b  |  20 lines
  1. procedure hdInsert ;
  2. {$IFDEF code}{$I cluster.src }{$ENDIF}
  3. begin
  4. {$IFDEF code}
  5.    Desktop^.Insert ( MakeDialog ) ;
  6. {$ELSE}
  7.    Desktop^.Insert ( PDIALOG ( RezFile^.Get ( 'DIALOG_CLUSTER' ) ) ) ;
  8. {$ENDIF}
  9. end ;
  10.  
  11. procedure hdExecView ;
  12. {$IFDEF code}{$I cluster.src }{$ENDIF}
  13. begin
  14. {$IFDEF code}
  15.    Desktop^.ExecView ( MakeDialog ) ;
  16. {$ELSE}
  17.    Desktop^.ExecView ( PDIALOG ( RezFile^.Get ( 'DIALOG_CLUSTER' ) ) ) ;
  18. {$ENDIF}
  19. end ;
  20.